cmd1.CommandText = "Select * from reports order by Reportfilename"
cmd1.Connection = conn1
cmd1.Connection.Open()
lstReportName.Items.Clear()
MyReader = cmd1.ExecuteReader(CommandBehavior.CloseConnection)
'Loop until there are no more reports to add
While MyReader.Read
    lstReportName.Items.Add(MyReader(1))
    Total_Records += 1
    ReDim Preserve Report_Names(Total_Records)
    Report_Names(lstReportName.Items.Count) = MyReader(0)
End While
MyReader.Close()
conn1.Close()
